﻿Option Explicit On
Option Strict On

''' <summary>
''' Clase para guardar, cargar y limpiar el recordatorio de la aplicacion
''' </summary>
''' <nombre> Antonio Ramos Torres </nombre>

Public Class Recordatorio

#Region "Atributos"
    Private _textoRecordatorio As String
    Private baseDeDatos As BBDD
#End Region

#Region "Constructores y destructores"

    Public Sub New()
        baseDeDatos = New BBDD
        _textoRecordatorio = ""
        Cargar()
    End Sub

#End Region

#Region "Metodos"


    Public Sub Guardar()
        baseDeDatos.EjecutarComandoInsert("Insert into Recordatorio (texto) Values('" & Me._textoRecordatorio & "');")
    End Sub

    Public Sub Cargar()
        baseDeDatos.EjecutarComandoSelect("SELECT top 1 texto FROM Recordatorio order by numero desc;")
        baseDeDatos.lector.Read()
        If baseDeDatos.lector.HasRows Then
            _textoRecordatorio = CStr(baseDeDatos.lector("texto"))
        End If
        baseDeDatos.Desconectar()
    End Sub
#End Region

    Public Property texto As String
        Get
            Return _textoRecordatorio
        End Get
        Set(ByVal value As String)
            _textoRecordatorio = value
        End Set
    End Property

End Class
